home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Commodore Disk User Volume 4 #5
/
Commodore_Disk_User_Vol.4_5_1991_-.d64
/
the ti challenge
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
631b
|
18 lines
10 poke53280,5:poke53281,11:print"[147] [212][200][197] [212][197][195][200][206][207] [201][206][198][207] [195][200][193][204][204][197][206][199][197]"
20 print" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
30 print" [159][212]his month: [158][208]rime [206]umber [193]nalysis"
40 print,"[153][157][157][157] [208]ress [210][197][212][213][210][206] to see what",," you have to beat!"
50 geta$:ifa$<>chr$(13)then50
60 print"[145][145] [212]ime elapsed: "," [208]rime [206]umber: [145][145][145][145]"
70 print"[150] [215]orking..."
80 :
90 :
100 ti$="000000":clr:dimb%(10000):forn=0to10000:ifb%(n)=1then130
110 print,,int(ti/.6+.5)/100"[157] seconds ":print,,2*n+3"[145][145]"
120 if3*n+3<=10000thenfork=3*n+3to10000step2*n+3:b%(k)=1:next
130 next
140 :
150 :
160 print" [195]an you beat it?????[152]"
170 poke631,152:poke632,145:poke633,210:poke634,17:poke635,157:poke198,5:end